IAMTask_Initialize procedure

After the Task Server has opened the vault, the Initialize method will get the document object.

Private Sub IAMTask_Initialize(ByVal Repository As Object, _
Optional ByVal CurrentObjectID As String = "")
On Error GoTo eh
 
' When ConnectToServer() returns True the Task Server will provide a Repository object.
If Not Repository Is Nothing Then
Set m_Repository = Repository
 
On Error Resume Next
' CurrentObjectID: The Document for which the properties will be updated
If (Len(CurrentObjectID) <> 0) Then
Set m_FSObject = m_Repository.GetFSObject(CurrentObjectID)
End If
Else
' No Repository object available.
End If
Exit Sub
eh:
Err.Raise -1, TaskName, "Failed to initialize task."
End Sub